home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8502.arc / WINDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1986-09-14  |  1KB  |  49 lines
  1. { Demonstration program for removable window package }
  2.  
  3. { --- Insert code from Listing 4 here --- }
  4.  
  5. var i: integer;
  6.  
  7. begin
  8.   initwin;
  9.  
  10.   writeln('Now and every time the action stops,');
  11.   writeln('press ENTER to continue.');
  12.   readln;
  13.   clrscr;
  14.   for i:=1 to 25 do writeln('    This is the original screen.');
  15.  
  16.   mkwin(3,3,50,18);
  17.   for i:=1 to 15 do writeln('This is the first window...');
  18.   readln;
  19.  
  20.   mkwin(10,5,70,20);
  21.   for i:=1 to 15 do writeln('Second window...');
  22.   readln;
  23.  
  24.   mkwin(15,15,45,23);
  25.   writeln('Third window...');
  26.   readln;
  27.  
  28.   mkwin(55,10,79,25);
  29.   writeln('Fourth window...');
  30.   readln;
  31.  
  32.   rmwin;   { Remove fourth window }
  33.   readln;
  34.  
  35.   rmwin;   { Remove third window }
  36.   writeln;
  37.   writeln('We are back in the second window...');
  38.   readln;
  39.  
  40.   rmwin;   { Remove second window }
  41.   writeln;
  42.   writeln('This is the first window again!');
  43.   readln;
  44.  
  45.   rmwin;   { Remove first window }
  46.   readln
  47. end.
  48.  
  49.